﻿Public Class PSI_TopicosTabulados

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        AñadirTopicosYRespuestas.lbl_NOMBRE_PSI_AÑADIR_TOPICOS_Y_RESPUESTAS.Text = Me.lbl_NOMBRE_PSI_TOPICOS_TABULADOS.Text
        AñadirTopicosYRespuestas.rtxt_TOPICO.Text = ""
        AñadirTopicosYRespuestas.rtxt_PSI_AÑADIRTOPICOS_Y_RESPUESTAS_RESPUESTA.Text = ""
        AñadirTopicosYRespuestas.ShowDialog()
    End Sub

    Private Sub lsb_PSIS_TOPICO_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles lsb_PSIS_TOPICO.SelectedIndexChanged
        lsb_PSIS_RESPUESTA.SelectedIndex = lsb_PSIS_TOPICO.SelectedIndex
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Me.Close()
    End Sub

    Private Sub lsb_PSIS_RESPUESTA_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles lsb_PSIS_RESPUESTA.SelectedIndexChanged
        lsb_PSIS_TOPICO.SelectedIndex = lsb_PSIS_RESPUESTA.SelectedIndex
    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        Dim ItemSeleccionado As Integer
        ItemSeleccionado = lsb_PSIS_TOPICO.SelectedIndex
        lsb_PSIS_RESPUESTA.Items.Remove(lsb_PSIS_RESPUESTA.Items(ItemSeleccionado))
        lsb_PSIS_TOPICO.Items.Remove(lsb_PSIS_TOPICO.Items(ItemSeleccionado))
    End Sub
End Class